﻿
#If RETIRED Then
Imports System.IO

Public Class basefont
    Inherits onelineXHtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.color(key) OrElse _
                attributesCollection.face(key) OrElse _
                attributesCollection.id(key) OrElse _
                attributesCollection.size(key)
    End Function

    Public Sub New(Optional Byval buff As MemoryStream = Nothing)
        MyBase.New(buff, "basefont")
    End Sub
End Class

Public Class center
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.common(key)
    End Function

    Public Sub New(Optional Byval buff As MemoryStream = Nothing)
        MyBase.New(buff, "center")
    End Sub
End Class

Public Class dir
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.common(key) OrElse _
                attributesCollection.compact(key)
    End Function

    Public Sub New(Optional Byval buff As MemoryStream = Nothing)
        MyBase.New(buff, "dir")
    End Sub
End Class

Public Class font
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.core(key) OrElse _
                attributesCollection.i18n(key) OrElse _
                attributesCollection.color(key) OrElse _
                attributesCollection.face(key) OrElse _
                attributesCollection.size(key)
    End Function

    Public Sub New(Optional Byval buff As MemoryStream = Nothing)
        MyBase.New(buff, "font")
    End Sub
End Class

Public Class isindex
    Inherits onelineXHtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.core(key) OrElse _
                attributesCollection.i18n(key) OrElse _
                attributesCollection.prompt(key)
    End Function

    Public Sub New(Optional Byval buff As MemoryStream = Nothing)
        MyBase.New(buff, "isindex")
    End Sub
End Class

Public Class menu
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.common(key) OrElse _
                attributesCollection.compact(key)
    End Function

    Public Sub New(Optional Byval buff As MemoryStream = Nothing)
        MyBase.New(buff, "menu")
    End Sub
End Class

Public Class s
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.common(key)
    End Function

    Public Sub New(Optional Byval buff As MemoryStream = Nothing)
        MyBase.New(buff, "s")
    End Sub
End Class

Public Class strike
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.common(key)
    End Function

    Public Sub New(Optional Byval buff As MemoryStream = Nothing)
        MyBase.New(buff, "strike")
    End Sub
End Class

Public Class u
    Inherits xhtmlControl

    Protected Overrides Function availableAttribute(ByVal key As String) As Boolean
        Return attributesCollection.common(key)
    End Function

    Public Sub New(Optional Byval buff As MemoryStream = Nothing)
        MyBase.New(buff, "u")
    End Sub
End Class
#End If
